home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / smalltlk.zip / PRELUDE / CLASS.P < prev    next >
Text File  |  1990-09-13  |  1KB  |  53 lines
  1. temp <- <primitive 110 10 >
  2. <primitive 112 temp 1        " view " \
  3.     #( #[ 32 250 1 156 242 245] \
  4.     #(  ) ) >
  5.  
  6. <primitive 112 temp 2        " variables " \
  7.     #( #[ 32 250 1 158 243 245] \
  8.     #(  ) ) >
  9.  
  10. <primitive 112 temp 3        " superClass " \
  11.     #( #[ 32 250 1 151 243 245] \
  12.     #(  ) ) >
  13.  
  14. <primitive 112 temp 4        " respondsTo: " \
  15.     #( #[ 32 114 34 162 247 18 34 33 250 2 155 247 2 91 243 \
  16.  242 34 10 46 241 114 242 249 22 242 92 243 245] \
  17.     #(  ) ) >
  18.  
  19. <primitive 112 temp 5        " respondsTo " \
  20.     #( #[ 32 250 1 154 242 245] \
  21.     #(  ) ) >
  22.  
  23. <primitive 112 temp 6        " printString " \
  24.     #( #[ 32 250 1 152 243 245] \
  25.     #(  ) ) >
  26.  
  27. <primitive 112 temp 7        " new: " \
  28.     #( #[ 32 250 1 151 114 34 250 1 3 247 4 34 160 241 115 \
  29.  242 32 35 250 2 153 115 32 48 250 2 155 247 5 35 \
  30.  33 176 241 115 242 35 243 245] \
  31.     #( #new:  ) ) >
  32.  
  33. <primitive 112 temp 8        " new " \
  34.     #( #[ 32 250 1 151 113 33 250 1 3 247 4 33 160 241 114 \
  35.  242 32 34 250 2 153 114 32 48 250 2 155 247 4 34 \
  36.  160 241 114 242 34 243 245] \
  37.     #( #new  ) ) >
  38.  
  39. <primitive 112 temp 9        " list " \
  40.     #( #[ 32 250 1 157 242 245] \
  41.     #(  ) ) >
  42.  
  43. <primitive 112 temp 10        " edit " \
  44.     #( #[ 32 250 1 150 242 245] \
  45.     #(  ) ) >
  46.  
  47. <primitive 98 #Class \
  48.     <primitive 97 #Class #Object #\smalltlk\prelude\class.st \
  49.     #(  ) \
  50.     #( #view #variables #superClass #respondsTo: #respondsTo #printString #new: #new #list #edit  ) \
  51.     temp 4 4 > >
  52.  
  53.